home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Online / News / Thor / rexx / BBSRead / DefaultNames.br < prev    next >
Encoding:
Text File  |  1996-11-11  |  683 b   |  37 lines
  1. /* $VER: DefaultNames.br 3.1 (31.3.95)
  2.  *
  3.  * Sets all bbses to use globaly defined name, address and phone number.
  4.  *
  5.  * Script by: Eivind Nordseth, Ultima Thule Software.
  6.  */
  7.  
  8. /*    trace results */
  9.  
  10.     parse arg argument
  11.  
  12.     if ~show('p', 'BBSREAD') then do
  13.         address command
  14.             "run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
  15.             "WaitForPort BBSREAD"
  16.     end
  17.  
  18.     address BBSREAD
  19.  
  20.     GETBBSLIST stem BBSLIST 
  21.     if(rc ~= 0) then 
  22.     do
  23.         say BBSREAD.LASTERROR
  24.         exit
  25.     end
  26.  
  27.     do n=1 to BBSLIST.COUNT
  28.         say 'Configuring bbs:' BBSLIST.n
  29.  
  30.         CONFIGBBS '"' || BBSLIST.n || '"' USER '""' STREET '""' ADDR '""' COUNTRY '""' PHONE '""' 
  31.         if(rc ~= 0) then 
  32.         do
  33.             say BBSREAD.LASTERROR
  34.             exit
  35.         end
  36.     end
  37.